We all know that private universities/colleges get their fundings from mostly the donations and student tuition. This list is not complete. Please continue to update me if you see another program. Good luck to everyone.
---
title: "Updated List of Programs NOT Accepting Applicants in 2020-2021 Cycle"
author: Shan Jiang
output:
flexdashboard::flex_dashboard:
storyboard: true
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(plotly)
phd_data = read_csv(file = "./grad_program_pause_2021 - Sheet1.csv") %>%
janitor::clean_names() %>%
mutate(discipline = gsub(" Ph.D.*","",programs))
names(phd_data)[7] <- "link"
names(phd_data)[4] <- "cycle_status_2021"
head(phd_data)
```
### Colleges that are not accepting the Chart {data-commentary-width=100}
```{r}
phd_data %>%
filter(cycle_status_2021 == c("Suspend","Downsize")) %>%
count(schools) %>%
mutate(schools = fct_reorder(schools, n)) %>%
plot_ly(x = ~schools, y = ~n, color = ~schools, type = "bar")
```
***
### Disciplines that are affected {data-commentary-width=200}
```{r}
phd_data %>%
count(discipline) %>%
#filter(n >1) %>%
mutate(discipline = fct_reorder(discipline, n)) %>%
plot_ly(x = ~discipline, y = ~n, color = ~discipline, type = "bar")
```
***
We all know that private universities/colleges get their fundings from mostly the donations and student tuition. This list is not complete. Please continue to update me if you see another program. Good luck to everyone.